FOR EACH ptp_det WHERE ptp_part BEGINS "" NO-LOCK,
    EACH ro_det WHERE (ro_routing = ptp_routing OR ro_routing = ptp_part):
    DISP ptp_part ptp_routing ro_routing 
         ro_op ro_desc ro_cost ro_cyc_rate ro_cyc_unit ro_setup ro_setup_men ro_run ro_move ro_mv_nxt_op 
         ro_mch_op ro_mch ro_mod_date ro_mod_userid ro_std_op ro_sub_cost ro_sub_lead  WITH STREAM-IO WIDTH 320 .
END.
